home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / claqge.z / claqge
Text File  |  1996-03-14  |  3KB  |  133 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAAQQQQGGGGEEEE((((3333FFFF))))                                                          CCCCLLLLAAAAQQQQGGGGEEEE((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLAQGE - equilibrate a general M by N matrix A using the row and scaling
  10.      factors in the vectors R and C
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, EQUED )
  14.  
  15.          CHARACTER      EQUED
  16.  
  17.          INTEGER        LDA, M, N
  18.  
  19.          REAL           AMAX, COLCND, ROWCND
  20.  
  21.          REAL           C( * ), R( * )
  22.  
  23.          COMPLEX        A( LDA, * )
  24.  
  25. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  26.      CLAQGE equilibrates a general M by N matrix A using the row and scaling
  27.      factors in the vectors R and C.
  28.  
  29.  
  30. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  31.      M       (input) INTEGER
  32.              The number of rows of the matrix A.  M >= 0.
  33.  
  34.      N       (input) INTEGER
  35.              The number of columns of the matrix A.  N >= 0.
  36.  
  37.      A       (input/output) COMPLEX array, dimension (LDA,N)
  38.              On entry, the M by N matrix A.  On exit, the equilibrated matrix.
  39.              See EQUED for the form of the equilibrated matrix.
  40.  
  41.      LDA     (input) INTEGER
  42.              The leading dimension of the array A.  LDA >= max(M,1).
  43.  
  44.      R       (input) REAL array, dimension (M)
  45.              The row scale factors for A.
  46.  
  47.      C       (input) REAL array, dimension (N)
  48.              The column scale factors for A.
  49.  
  50.      ROWCND  (input) REAL
  51.              Ratio of the smallest R(i) to the largest R(i).
  52.  
  53.      COLCND  (input) REAL
  54.              Ratio of the smallest C(i) to the largest C(i).
  55.  
  56.      AMAX    (input) REAL
  57.              Absolute value of largest matrix entry.
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. CCCCLLLLAAAAQQQQGGGGEEEE((((3333FFFF))))                                                          CCCCLLLLAAAAQQQQGGGGEEEE((((3333FFFF))))
  71.  
  72.  
  73.  
  74.      EQUED   (output) CHARACTER*1
  75.              Specifies the form of equilibration that was done.  = 'N':  No
  76.              equilibration
  77.              = 'R':  Row equilibration, i.e., A has been premultiplied by
  78.              diag(R).  = 'C':  Column equilibration, i.e., A has been
  79.              postmultiplied by diag(C).  = 'B':  Both row and column
  80.              equilibration, i.e., A has been replaced by diag(R) * A *
  81.              diag(C).
  82.  
  83. PPPPAAAARRRRAAAAMMMMEEEETTTTEEEERRRRSSSS
  84.      THRESH is a threshold value used to decide if row or column scaling
  85.      should be done based on the ratio of the row or column scaling factors.
  86.      If ROWCND < THRESH, row scaling is done, and if COLCND < THRESH, column
  87.      scaling is done.
  88.  
  89.      LARGE and SMALL are threshold values used to decide if row scaling should
  90.      be done based on the absolute size of the largest matrix element.  If
  91.      AMAX > LARGE or AMAX < SMALL, row scaling is done.
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.